home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-11-30 | 2.5 KB | 137 lines | [TEXT/MPS ] |
- ; File: Power.a
- ;
- ; Copyright: © 1983-1993 by Apple Computer, Inc.
- ; All rights reserved.
- ;
- ; Version: System 7.1 for ETO #11
- ; Created: Tuesday, March 30, 1993 18:00
- ;
- ;___________________________________________________________________________
-
- IF &TYPE('__INCLUDINGPOWER__') = 'UNDEFINED' THEN
- __INCLUDINGPOWER__ SET 1
-
-
-
- ; Bit Positions for ModemByte
- modemOnBit EQU 0
- ringWakeUpBit EQU 2
- modemInstalledBit EQU 3
- ringDetectBit EQU 4
- modemOnHookBit EQU 5
-
- ; masks for ModemByte
- modemOnMask EQU $1
- ringWakeUpMask EQU $4
- modemInstalledMask EQU $8
- ringDetectMask EQU $10
- modemOnHookMask EQU $20
-
- ; bit positions for BatteryByte
- chargerConnBit EQU 0
- hiChargeBit EQU 1
- chargeOverFlowBit EQU 2
- batteryDeadBit EQU 3
- batteryLowBit EQU 4
- connChangedBit EQU 5
-
- ; masks for BatteryByte
- chargerConnMask EQU $1
- hiChargeMask EQU $2
- chargeOverFlowMask EQU $4
- batteryDeadMask EQU $8
- batteryLowMask EQU $10
- connChangedMask EQU $20
-
- ; commands to SleepQRec sleepQProc
- sleepRequest EQU 1 ; sleep request
- sleepDemand EQU 2 ; sleep demand
- sleepWakeUp EQU 3 ; wake up
- sleepRevoke EQU 4 ; revoke sleep request
-
- ;SleepQRec - sleepQFlags
- noCalls EQU 1 ; no need to call
- noRequest EQU 2 ; no need to send sleep request
-
- SleepQRec RECORD 0
- sleepQLink DS.L 1
- sleepQType DS.W 1
- sleepQProc DS.L 1
- sleepQFlags DS.W 1
- sleepQRecSize EQU * ; size of SleepQRec Record
- ENDR
-
- ; selectors for _IdleState trap
- getCPUSpeed EQU -1
- enableIdle EQU 0
- disableIdle EQU 1
-
- ; macros for _IdleState trap
- MACRO
- _GetCPUSpeed
- move.l #getCPUSpeed,D0
- DC.W $A485
- ENDM
-
-
- MACRO
- _EnableIdle
- move.l #enableIdle,D0
- DC.W $A485
- ENDM
-
-
- MACRO
- _DisableIdle
- move.l #disableIdle,D0
- DC.W $A485
- ENDM
-
-
- ; selectors for _SerialPowerTrap
- aOn EQU $4
- aOnIgnoreModem EQU $5
- bOn EQU $0
- aOff EQU $84
- bOff EQU $80
-
- ; macros for _SerialPowerTrap
- MACRO
- _AOn
- move.l #aOn,D0
- DC.W $A685
- ENDM
-
-
-
- MACRO
- _AOnIgnoreModem
- move.l #aOnIgnoreModem,D0
- DC.W $A685
- ENDM
-
-
-
- MACRO
- _BOn
- move.l #bOn,D0
- DC.W $A685
- ENDM
-
-
-
- MACRO
- _AOff
- move.l #aOff,D0
- DC.W $A685
- ENDM
-
-
-
- MACRO
- _BOff
- move.l #bOff,D0
- DC.W $A685
- ENDM
-
- ENDIF ; ...already included